home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / lsp / kclp.lsp < prev    next >
Text File  |  1987-06-04  |  655b  |  21 lines

  1. (in-package "SYSTEM")
  2.  
  3. (make-package "KCL" :use nil)
  4.  
  5. (flet ((move-symbol (name)
  6.          (unexport (find-symbol name (find-package "LISP")) (find-package "LISP"))
  7.   (export (intern (symbol-name name) (find-package "KCL")))
  8.   (setf (symbol-function (find-symbol name (find-package "KCL")))
  9.         (symbol-function (find-symbol name (find-package "LISP"))))
  10.   (fmakunbound (symbol-function (find-symbol name (find-package "LISP"))))))
  11.  
  12.   '(....))
  13.  
  14. (fmakunbound 'move-symbol)
  15.  
  16. (use-package (find-package "KCL") (find-package "USER"))
  17. (use-package (find-package "KCL") (find-package "SYSTEM"))
  18. (use-package (find-package "KCL") (find-package "COMPILER"))
  19.  
  20.  
  21.